use "Goidel&Goidel.dta", clear

svyset [pweight=teamweight]


****************
****************
****************
****FIGURE 1****
****************
****************
****************

gr bar (percent) cnt, asyvars over(strprs) showyvars legend(off) title("Strong President") ylabel(0 (20) 80) ytitle("") graphregion(color(white)) bar(1, color(%70)) bar(2, color(forest_green%70)) 

gr bar (percent) cnt, asyvars over(brkrls) showyvars legend(off) title("Break Rules") ylabel(0 (20) 80) ytitle("") graphregion(color(white)) bar(1, color(%70)) bar(2, color(%70)) bar(3, color(%70))

gr bar (percent) cnt, asyvars over(fwrlaws) showyvars legend(off) title("Fewer Laws") ylabel(0 (20) 80) ytitle("") graphregion(color(white)) bar(1, color(%70)) bar(2, color(%70)) bar(3, color(%70))

gr bar (percent) cnt, asyvars over(violence) showyvars legend(off) title("Violence") ylabel(0 (20) 80) ytitle("") graphregion(color(white)) bar(1, color(%70)) bar(2, color(%70)) bar(3, color(%70))






***************
***************
***************
****TABLE 1****
***************
***************
***************

svy: logit strprs nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit brkrls nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit fwrlaws nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit violence nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 






****************
****************
****************
****FIGURE 2****
****************
****************
****************

svy: logit strprs nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 
margins, at(nostalgia=(0 (.1) 1))
marginsplot, graphregion(color(white)) xlabel(0 (.2) 1) recastci(rarea) recast(line) title("") ytitle(Predicted Probability)


svy: ologit brkrls nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 
margins, at(nostalgia=(0 (.1) 1))
marginsplot, legend(order(4 "Disgree" 5 "Neither" 6 "Agree") rows(1)) graphregion(color(white)) xlabel(0 (.2) 1) recastci(rarea) recast(line) title("") ytitle(Predicted Probability) 


svy: ologit fwrlaws nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 
margins, at(nostalgia=(0 (.1) 1))
marginsplot, legend(order(4 "Disgree" 5 "Neither" 6 "Agree") rows(1)) graphregion(color(white)) xlabel(0 (.2) 1) recastci(rarea) recast(line) title("") ytitle(Predicted Probability)


svy: ologit violence nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 
margins, at(nostalgia=(0 (.1) 1))
marginsplot, legend(order(4 "Disgree" 5 "Neither" 6 "Agree") rows(1)) graphregion(color(white)) xlabel(0 (.2) 1) recastci(rarea) recast(line) title("") ytitle(Predicted Probability)






****************
****************
****************
****TABLE A2****
****************
****************
****************

factor longfor feelnostalgia usculture uspolsystem useconsystem betterplace, pcf
rotate






*****************
*****************
*****************
****FIGURE A1****
*****************
*****************
*****************

histogram nostalgia






****************
****************
****************
****TABLE A3****
****************
****************
****************

tabstat nostalgia, by(pid3) statistics(n mean sd min max)
tabstat nostalgia, by(woman) statistics(n mean sd min max)
tabstat nostalgia, by(race3) statistics(n mean sd min max)
tabstat nostalgia, by(over65) statistics(n mean sd min max)
tabstat nostalgia, by(college) statistics(n mean sd min max)
tabstat nostalgia, by(over100k) statistics(n mean sd min max)
tabstat nostalgia, by(region) statistics(n mean sd min max)






****************
****************
****************
****TABLE A4****
****************
****************
****************

svy: ologit strongpres nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3

svy: ologit breakrules nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3

svy: ologit fewerlaws nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3

svy: ologit resort2violence nostalgia pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3






****************
****************
****************
****TABLE A5****
****************
****************
****************

svy: logit strprs nostalgia pessimism pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit brkrls nostalgia pessimism pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit fwrlaws nostalgia pessimism pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 

svy: ologit violence nostalgia pessimism pid7 ideo5 faminc_new educ cat_age woman hispanic i.race3 







